home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / shazam11.zip / DEMOC3.VIR < prev    next >
Text File  |  1991-11-04  |  516b  |  17 lines
  1.    {===================================================================
  2.  
  3.    Check command-line option
  4.    NOTE:  Call to this routine automatically placed in constructor Init;
  5.           see *.PAS file.
  6.    ===================================================================}
  7. procedure TDemoC3App.PreInit ;
  8. begin
  9.    if ParamCount = 0 then
  10.    begin
  11.       writeln ( 'Syntax:  C:>program filespec' ) ;
  12.       writeln ;
  13.       writeln ( 'You FORGOT the ''filespec'''#7#7 ) ;
  14.       HALT ( 1 ) ;
  15.    end ;
  16. end ;
  17.